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Preface 


Manual Objectives 

This manual provides a step-by-step procedure for installing the VAX FORTRAN compiler 
on a VMS system, and it provides FORTRAN programmers with information that pertains 
to this release of VAX FORTRAN. 

Intended Audience 

This manual is intended for use by system managers and FORTRAN programmers with a 
working knowledge of VMS. 

Structure of This Document 

This manual is organized into two chapters. 


Chapter 1 provides information on the following: 

• The procedure for installing the VAX FORTRAN compiler, which builds 
FORSYSDEF.TLB on site 

• The procedure for installing the FORTRAN HELP file 

• The procedure for installing VAX FORTRAN as a known shared image 

• Information on maintenance updates 
Chapter 2 provides the following information: 

• The new features of VAX FORTRAN V4.0 (a short description) 

• Changes to FORSYSDEF 

• Notes on compatibility with earlier versions of VAX FORTRAN 

• Information on any known restrictions discovered in the current version of the com¬ 
piler 

• Notes on compiler performance and the recommended working set 


v 




Associated Documents 

• VAX/VMS Install Utility Reference Manual 

• Guide to VAX/VMS System Management and Daily Operations 

• VAX/VMS Utility Routines Reference Manual 

• VAX FORTRAN User’s Guide 

• Programming in VAX FORTRAN 

• VAX/VMS Symbolic Debugger Reference Manual 





Chapter 1 

Installation Guide 


This chapter describes the procedure for installing the VAX FORTRAN compiler (includ¬ 
ing FORSYSDEF) and the VAX FORTRAN HELP file on the VMS operating system. The 
procedure is automated and requires only that you (1) mount the kit volumes when 
prompted and (2) respond to queries issued during the installation procedure. You should 
read this manual and the appropriate VAX software installation guide before you begin the 
installation. 


WARNING 

You should perform the FORTRAN installation procedure when there are no 
active users on the system. Unlike previous versions of the FORTRAN installa¬ 
tion procedures, warnings are given if there are active users when the procedure 
is run. 

If any user attempts to access DCL HELP during the installation of FORTRAN 
HELP, the FORTRAN HELP installation may fail. If the installation fails, you 
must restart the installation procedure. 

After successful installation, you should notify all FORTRAN users that a new version of 
the compiler has been installed. 

1.1 Requirements 

1. System manager privileges 

2. A minimum of 6500 blocks of free disk space (approximately 3400 blocks are used 
after installation) 

3. Approximately 600 contiguous free global pages and 2 free global sections, if VAX 
FORTRAN is to be installed as a known image (see Section 1.4) 

4. Thirty to ninety minutes of installation time, depending on your type of media and 
your system configuration 

5. The VMS software installation guide pertaining to your system 

6. VMS V4.0 or later 
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1.2 Contents of Kit 

The kit consists of two separate kits: 

1. The VAX FORTRAN compiler 

2. VAX FORTRAN HELP 

The VAX FORTRAN installation kit consists of two sets of volumes. The first set of 
volumes contains the VAX FORTRAN V4.0 compiler, which will build FORSYSDEF on 
site, and the second single volume contains the VAX FORTRAN HELP file. If your me¬ 
dium is magtape, the kit consists of one magtape containing both sets. Your cover letter 
specifies the number and contents of your media. 


1.3 Installation Procedure 

Regardless of the type of media used, begin installation of the FORTRAN compiler on any 
VMS V4.0 (or later) system by performing the following steps: 

1. Log in to the system manager's account. 

NOTE 

If a previous version of VAX FORTRAN has been installed as a known 
image, VMSINSTAL will automatically attempt to install the new version 
as a known image. Therefore, you must be sure that there are at least 600 
free contiguous global pages and 2 free global sections available. You can 
determine whether VAX FORTRAN has been installed as a known image 
and you can also check the number of global pages and global sections using 
the procedures described in Section 1.4. 

2. Invoke VMSINSTAL by typing: 

$ @SYS$UPDATE:OMSINSTAL 

VMSINSTAL will prompt you for the additional parameters. 

NOTE 

For purposes of illustration, the product name FORT040 and the device 
CSA1: are used in the examples in this manual. 

3. The procedure responds with the following messages: 

0 M S Software Product Installation Procedure 

It is 23-SEPTEMBER-1984 at 12:00. 

Enter a question ma r K (?) at any time for help. 
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4. The messages are followed by a series of questions. You must answer Y [YES], N 
[NO], or ? for help. The bracketed response is the default. 

* Are you satisfied with the backup of your system disk CYES3? yes 

Assuming that you have performed the necessary backup, enter Y or press RET. If 
you reply with N, the installation procedure is aborted. 

5. The procedure then prompts you to enter the device and product name. 

* Where will the distribution volumes be mounted: CSA1 : 

Enter products to be processed from the first distribution volume s e t ♦ 
Products: F0RT040 

6. Insert the first kit volume, labeled FORTOl, into the drive. Type YES when ready. 

Please mount volume 1 of the set on C S A1: 

* Are you ready? yes 

AMOUNT-I-MOUNTED> FORTOl mounted on _DRAGON$CSA 1: 

7. The procedure then continues with the following message: 

The following products will be processed: 

FORT 04.0 

Beginning installation of FORT 04*0 at 12:01 
7,0MSINSTAL-I-REST0RE» Restoring product saveset A**. 

8. If you are installing from TU58s or diskettes, the following messages appear and 
prompt you for additional volumes: 

B A C K U P - I - R E A D Y R E A D * mount volume 2 on _ $ 1 $ C S A 1 : for reading 
Enter 'YES' when ready: yes 

9. The procedure then continues with the following message: 


! Installation of OAX FORTRAN 04*0 ! 

! Compiler ! 

+ - + 


10. You are then asked if you want to purge files. 

* Do you want to purge files replaced by this installation C Y E S 3 ? yes 

If you type YES, all older versions of the compiler are deleted and replaced with new 
files; purging is recommended. If you type NO, the older file will remain. 

NOTE 

You may need to purge old versions of the compiler if you have a system that 
requires tailoring (such as the VAX-11/730 dual RL02 system), as you may 
not have sufficient space for the new compiler. 
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11. The procedure asks if you want to execute the Installation Verification Procedure 
(IVP). 

This kit contains an Installation Verification Procedure 
to verify the correct installation of the MAX FORTRAN 
Coinpi ler ♦ 

* Do you want to run the IMP after the installation EYES]? yes 

12. The procedure then asks you if you want a printed copy of the edit history file. In 
response type the number of copies desired (0 if none). 

This kit contains a fi 1 e t M A X F 0 R U P D♦M E M t summarizing the 
changes made to the MAX FORTRAN M 4 Compiler up to 
this point* 

* How many copies would you like to p r i nt E 0 3: 1 

Job 8789 entered on queue S Y S $ P RIN T 

13. The procedure then issues information concerning the new FORSYSDEF library and 
asks you if you wish to build a new FORSYSDEF.TLB. 

A new FORSYSDEF.TLB is available with this installation* 

In order to build your FORSYSDEF library » this procedure 
requires at least 8500 blocks of available disk space t 
most of which is used for temporary work files* The 
FORSYSDEF library itself will take approximately 1500 
blocks of disk space upon completion of this procedure 
and will be placed in your S Y S $ L I B R A R Y area* 

NOTE 

Be sure to have read the Installation Guide regarding 
the changes to FORSYSDEF before installing the kit* 

* Do you wish to build a new F 0 R S Y S D E F♦T L B [N 0 3 ? yes 

14. If you chose to build a new FORSYSDEF.TLB, the procedure responds as follows: 

Building FORSYSDEF* This should take about 20 minutes 

Y o ur M M S s ys t em will no w be updated to in elude the 
following new and modified f i 1 e s(s ) : 


SYS$SYSTEM:FORTRAN.EXE 
SYS$MESSAGE:FORTERR1 * EXE 
SYS$MESSAGE:F0RTERR2* EXE 
SYS$LIBRARYs F0RTM4CLD* CLD 
SYS$TEST:FORTTEST * COM 
SYS$TEST:FORSYSDEFTST.COM 
SYS$LIBRARY:DCLTABLES* EXE 
SYS$UPDATE:MAXFORUPD.MEM 
SYS$LIBRARY:FORSYSDEF♦TLB 

7.MMSINSTAL-I-M0MEFILES » files 
directories* ♦ ♦ 


[ n e w ] 

C n e w 3 
C n e w 3 
[ n e w 3 
C n e w 3 
C n e w 3 

[modified 3 
C n e w 3 
[ n e w 3 

will now be moved to their target 
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15. If you chose to execute the Installation Verification Procedure, the following message 
is issued: 


+ - + 

! Verification Command Procedure for ! 

! UAX FORTRAN ! 

+-+ 

The procedure compiles, links, and executes a test program. When the IVP has completed, 
you receive the following message: 

0AX FORTRAN 04,0-1 TEST PASSED 

Successful installation of FORTRAN 04*0 at 12:20 

The version number printed in the message should be the number of the version that you 
are installing. 

16. At this point in the procedure you can install the long version of VAX FORTRAN 
HELP (see Section 2.5). The long FORTRAN HELP file is approximately 510 blocks 
and contains information on FORTRAN language features as well as on the FOR¬ 
TRAN command itself. The short FORTRAN HELP file is approximately 30 blocks 
and contains information only on the FORTRAN command and qualifiers. If you do 
not wish to install a new FORTRAN HELP, type ‘exit’ after the products prompt. 

When the compiler installation has completed, you receive the following messages: 

Enter the products to be processed from the next distribution volume set* 

* Products: FHLP040 

* Are you ready? yes 

'/.MOUNT- I - MOUNTED t FHLP01 mounted on _DRAG0N$CSA 1 : 

The following products will be processed: 

FHLP 04♦0 


Beginning installation of FHLP 04*0 at 12:21 

17. You are then asked to mount the second volume. After the second volume is pro¬ 
cessed, the Installation Command Procedure is run. 

'/.UMSINSTAL-I-RESTORE* Restoring product saueset A,,, 

% BACKU P- I - RE AD YR EAD * mount volume 2 on _$ 1 $CSA 1 : for reading 
Enter 'YES' when ready: v e s 


! Installation of MAX FORTRAN 04.0 ! 

! FORTRAN HELP ! 

+ - + 
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18. The installation procedure then issues an informational message concerning the 
HELP files and prompts you for the desired version. 

This Kit contains two separate HELP files* a large 
version (approximately 510 blocks) including information 
on FORTRAN language features* and a smaller version 
(approximately 30 blocks) describing only the FORTRAN 
c o m m a n d ♦ 

Do you want to install the larger version of FORTRAN HELP EVES]? yes 

19. Another informational message indicates that the FORTRAN HELP has been in¬ 
stalled. 

Your 0 M S system will no w be updated to i n elude the 
following new and modified f i 1 e(s ) : 

SYS$HELP:HELPLIB♦HLB [modified] 

Successful installation of FORTRAN FORHELP 04 at 12:25 

20. When the help kit installation has completed, you receive the following messages: 

Enter the products to be processed from the next distribution volume set* 
* Products: exit 

OMSINSTAL procedure done at 12:27 

1.4 Defining FORTRAN as a Known Shared Image with the 
INSTALL Utility 

If the FORTRAN compiler is used frequently at your site, the compiler should be specified 
as a known shared image to the VMS system. This designation reduces both the overhead 
associated with invoking the FORTRAN compiler and the memory requirements when 
more than one user is compiling FORTRAN programs. 

To specify FORTRAN as a known shared image, use the VMS INSTALL Utility described 
in the VAX/VMS System Management and Daily Operations Guide. (The SYSGEN facil¬ 
ity is also described in this guide.) 

If VAX FORTRAN has been previously installed as a known shared image, VMSINSTAL 
has already made the new version of VAX FORTRAN known. In that case, you do not need 
to repeat the procedure. 


NOTE 

You should be logged in under the system manager’s account when performing 
the following operations. Also, you should perform these operations on a system 
that has just been bootstrapped to ensure that a /DELETE specification was not 
given to the INSTALL Utility. The /DELETE specification may cause the avail¬ 
able space in the global page table to become fragmented. Because contiguous 
space is required for known shared images, fragmentation of the available global 
page table space could cause the INSTALL Utility to fail, even when sufficient 
total space is available. 
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1.4.1 Preparation 

Before specifying FORTRAN as a known shared image, you must ensure that the system 
SYSGEN parameters GBLPAGES (global pages) and GBLSECTIONS (global sections) 
are large enough to accommodate FORTRAN. You do this by using the INSTALL and 
SYSGEN utilities as follows: 

1. Invoke the INSTALL Utility by typing: 

$ RUN SYS$SYSTEM:INSTALL 

2. Display the existing global sections already known to VMS by typing: 

INSTALL> /GLOBAL 

The INSTALL Utility lists the following: 

• All known global sections 

• The number of global sections used 

• The number of global pages used and unused 

The VAX FORTRAN compiler requires 600 global pages and 2 global sections. If fewer 
than 600 global pages remain unused, you can increase the number of available global 
pages by deleting an existing known image or by increasing the GBLPAGES system pa¬ 
rameter with the SYSGEN Utility. 

3. Display the existing number of available global sections by typing: 

$ RUN SYS$SYSTEM:SYSGEN 
SYSGEN > USE CURRENT 
SYSGEN > SHOW GBLSECTIONS 

The system responds with global sections data. The current maximum number of global 
sections is the first number. The FORTRAN kit requires two global sections. If all of the 
global sections are used (compare the number shown by SYSGEN with the number cur¬ 
rently used as shown by INSTALL), you must increase the number of available global 
sections by deleting an existing global section or by increasing the GBLSECTIONS param¬ 
eter with the SYSGEN Utility. 

1.4.2 Using INSTALL at System Bootstrap Time 

It is desirable to have FORTRAN automatically specified as a known shared image during 
the system bootstrap procedure. You can do this by modifying the site-specific startup 
command procedure, SYS$MANAGER:SYSTARTUP.COM, as follows: 

1. Check that the INSTALL command is contained in the command file. If not, insert 
the following command: 

$ RUN SYS$SYSTEMsINSTALL 
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2. Specify FORTRAN in the list of image names following the INSTALL Utility invo¬ 
cation. When a command is given, VMS searches the list of known images in the 
order opposite to that in which they were installed. Therefore, FORTRAN should be 
included after less frequently used images but before frequently used images. To 
specify FORTRAN in this list of image names, insert the command: 

INSTALL> SYS$SYSTEM:FORTRAN.EXE/SHARED/OPEN/HEADER-RESIDENT 

The image becomes a known shared image to VMS the next time the system is 
bootstrapped. 

1.4.3 Using the INSTALL Utility During Timesharing 

To specify FORTRAN as a known shared image on the currently running system without 
rebooting the system, or to replace an old version of FORTRAN with a new version, use the 
following procedure: 

1. Ensure that enough global pages and sections are available (see Section 1.4.1.). 

2. To determine whether an older version of FORTRAN is a known image, type: 

INST ALL > /LIST 

The system responds with a list of current known images. 

3. If FORTRAN is already a known image, replace it with the following command: 

INSTALL> SYS$SYSTEM:FORTRAN.EXE/REPLACE 

4. If FORTRAN.EXE is not already a known image, specify the location of the image 
by typing: 

INSTALL> SYS$SYSTEM:FORTRAN.EXE/SHARED/0PEN/HEADER_RESI DENT 

1.5 Update Releases 

DIGITAL may periodically issue update releases of VAX FORTRAN. Each update will 
consist of a set of new distribution media labeled similarily to the media in the original 
release. To update your system, use the procedures described in Section 1.3 and the cover 
letter accompanying the media. 

The following changes are made in each update release: 

• The version number is incremented. For example, if the original compiler had a ver¬ 
sion number of V4.0-1 and four changes were made to the compiler, the compiler’s new 
version number would be V4.1-5. 

• A new version of the compiler executable image file, FORTRAN.EXE, is supplied. 

• The VAXFORUPD.MEM file is updated to document all changes made to the com¬ 
piler since the initial release of Version 4 of VAX FORTRAN. 
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No other kit components change in the update releases. Therefore, update releases of VAX 
FORTRAN Version 4 do not require installation of any previous versions. 

In the case of kit components HELP and FORSYSDEF, special consideration must be 
given in updates. For HELP, the update releases may not include a new media for the 
HELP files, if no changes were made for that update. In this case, you may choose to omit 
the FORTRAN HELP portion of the installation procedure. In addition, by omitting the 
HELP portion of the installation, you may be successful in installing VAX FORTRAN 
while timesharing users are still logged on. 

In the case of FORSYSDEF.TLB, you may also omit this kit component’s installation 
when a FORTRAN update is issued. Unlike previous versions of FORTRAN, the mecha¬ 
nism for building FORSYSDEF for V4 is to process the master description of the modules 
from STARLETSD.TLB during each installation. In this way, by reinstalling FORTRAN 
each time a change is made to VMS symbol definitions, the FORSYSDEF modules are 
automatically updated to reflect the change. 

1.6 Edit History File 

The VAX FORTRAN Version 4 installation kit provides an edit history file called VAX- 
FORUPD.MEM. This file lists all the changes made to the compiler after the initial 
release. For maintenance updates, the edit history file serves as Release Notes; that is, it 
documents changes that occurred after the primary documentation was printed. The fol¬ 
lowing information is provided for each change: 

1. The edit-level number 

2. The SPR number (if there is one) that prompted the change 

3. A short description of the problem 

4. A short description of the change 

The VAXFORUPD.MEM file is updated each time a VAX FORTRAN Version 4 kit is 
built. As part of the installation procedure, this file is copied from the kit volume to the 
directory [SYSUPD] on the target-system disk. Later, at your request, the installation 
procedure prints the file from the target disk. The file is located in the directory [SYSUPD] 
on the target disk and can be printed as often as desired. 
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Chapter 2 

Release Notes 


This chapter describes the compatibility between previous versions of VAX FORTRAN 
and VAX FORTRAN V4.0 as well as the new features supported by VAX FORTRAN V4.0: 

• Section 2.1 describes technical changes and provides references for further informa¬ 
tion. 

• Section 2.2 describes changes to FORSYSDEF. 

• Section 2.3 describes source, object, and image compatibility between earlier versions 
of VAX FORTRAN and the new version. 

• Section 2.4 describes possible differences in run-time behavior due to new optimiza¬ 
tions implemented in VAX FORTRAN V4.0. 

• Section 2.5 describes the installation options available for VAX FORTRAN HELP. 

• Section 2.6 describes VAX FORTRAN V4 compiler performance. 

• Section 2.7 describes VAX FORTRAN command line changes. 

2.1 FORTRAN V4.0 Enhancements and Language Extensions 

Several language extensions have been implemented in the FORTRAN V4.0 compiler. Of 
these, by far the most important is a record handling capability (item 1, below). The 
extensions and their appearance in Programming in VAX FORTRAN are as follows: 

1. Records — New data item that can be composed of multiple fields containing aggre¬ 
gate and scalar data items with any mix of the VAX FORTRAN data types. Records 
are defined by means of structure declaration blocks (delimited by STRUCTURE 
and END STRUCTURE statements) and assigned to a memory location by means of 
the RECORD statement. 

Included in the structure declaration block, along with normal variables and arrays; 
are mapped common areas (union/map declarations) and substructure declarations 
(nested structure declarations and RECORD statements). (See Chapter 14 and Sec¬ 
tions 6.31, 8.13, and 8.14.) 
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2. FORTRAN command /EXTEND_SOURCE qualifier and new switches for /SHOW 

and /WARNINGS qualifiers: 

• /EXTEND_SOURCE — Extends the range of FORTRAN source text from col¬ 

umns 1 through 72 to columns 1 through 132. 

• /SHOW=SINGLE — Controls whether unused FORSYSDEF symbols appear in 
the cross-reference listing. 

• /SHOW=DICTIONARY — Controls whether the FORTRAN source representation 
of CDD records referenced by DICTIONARY statements are included in the listing 
file. 

• /WARNINGS=DECLARATION — Controls whether warning messages are issued 
when undeclared data items are used in a program (similar to adding an 
IMPLICIT NONE statement to the program units). 

• WARNINGS=GENERAL — Controls whether messages in the I (informational) 
and W (warning) categories are displayed. 

3. CDD (Common Data Dictionary) support and the DICTIONARY statement — Gen¬ 
eral description of usage and implications (see Sections 3.4 and 3.5.3). 

4. Compiler output — storage map section revised to show structured data items. 

5. VOLATILE statement — Controls whether optimization operations can affect speci¬ 
fied variables, arrays, or common blocks (see Section 8.15). 

6. Stream recordtype file support — Record Management Services (RMS) now sup¬ 
ports Stream, Stream-CR, and Stream-LF recordtypes for the OPEN statement (see 
Chapter 13). 

7. FAB and NAM blocks — allocated in heap storage so that they are accessible the 
entire time that a file is open. 

8. Zero-valued VFEs in format field descriptors — permits formats to be used with 
zero-width character expressions. 

9. List-directed internal file I/O — permitted for internal file READ and WRITE opera¬ 
tions (see Chapter 11). 

10. Interactive display of NAMELIST group and values — displays the current namelist 
group name and the name of the variables in response to a question mark (?) or 
( =? ) (see Chapter 11). 

11. End-of-line comments — permitted in NAMELIST input data. Comments begin¬ 
ning with an exclamation point ( ! ) may be placed anywhere in the input data where 
an end-of-line can occur, except within a character value. Comment delimiters are 
equivalent to an end-of-line (see Section 5.4.3.1). 
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12. ERRTST and ERR= improved — ERRTST is now aware of errors trapped by ERR=, 
END=, and IOSTAT= (see Chapter 11). 

13. BACKSPACE performance improved — performance on disk files has been im¬ 
proved, especially for fixed-length records. 

14. Internal files and “recursion” — permits internal READ, WRITE, ENCODE, and 
DECODE statements to be performed while another internal file operation is already 
in progress. This is permitted when internal file I/O is performed in an AST routine, 
exception handler, or a routine specified in an I/O list or variable format expression. 

15. Improved messages — additional informational messages are displayed for errors in 
certain I/O operations. 

16. FOR$RAB provided — returns the address of the RMS Record Access Block (RAB) 
for a given open FORTRAN unit (see the VAX FORTRAN User's Guide , Chapter 4). 


2.2 FORSYSDEF Changes 

The FORSYSDEF.TLB library has undergone some changes since the Version 3 
FORSYSDEF. Many new modules have been added (see Appendix C of the VAX Fortran 
User's Guide for a list of available modules). Some of these modules now contain structure 
declaration blocks. These new structure declarations have caused a number of modules in 
the old V3 FORSYSDEF.TLB to undergo some incompatible changes. 

The modified modules now include structure declarations instead of EQUIVALENCE dec¬ 
larations, which were not documented and little used. These modules include ACCDEF, 
CRDEF, DEVDEV, DMTDEF, IODEF, LADEF, LCKDEF, MNTDEF, MTDEF, 
OPCDEF, PRVDEF, PSLDEF, RMSDEF, SECDEF, STSDEF, TTDEF, XFDEF, and 
XMDEF. If a program references any of these names declared in the V3 FORSYSDEF 
module’s EQUIVALENCE statements, it will be necessary to modify the program to use 
the structure and field names instead. You should notify your FORTRAN users of this 
change. 

If users need to continue accessing the old FORSYSDEF.TLB, the system managers should 
make a COPY of this library and inform their users to use the logical FORT$LIBRARY to 
access it until all programs are converted to use the new version of FORSYSDEF. In the 
examples below, the old FORSYSDEF.TLB was copied to SYS$LIBRARY:V3 
FORSYS.TLB. To access this library from your programs, define the FORT$LIBRARY 
logical name so that the compiler will look for the V3FORSYS.TLB library first: 

$ DEFINE FORT$LIBRARY SYS*LIBRARYsU3F0RSYS.TLB 

After defining the logical name FORT$LIBRARY, your VAX FORTRAN compiler will first 
search for the library V3FORSYS.TLB in SYS$LIBRARY: to obtain the required modules. 
If this library is not found, it will look for the library FORSYSDEF.TLB in 
SYS$LIBRARY. 
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Remember to delete this old version after programs depending on it have been converted. 
The installation procedure will not purge FORSYSDEF.TLB automatically. 

NOTE 

There are two modules in the new FORSYSDEF.TLB that are not documented 
in Appendix C of the VAX FORTRAN User's Guide : $PSMMSG and 
$SMBMSG. Both modules contain symbiont messages and can be included by 
users writing their own symbionts. 

2.3 Known Problems With the VAX FORTRAN V4.0 Compiler 

There are none at this time. 

2.4 Compatibility 

2.4.1 Source Compatibility 

The source language accepted by the VAX FORTRAN V4.0 compiler is upward compatible 
with that accepted by the V3 compiler. 

2.4.2 Object Compatibility 

The object files produced by the VAX FORTRAN V4.0 compiler are upward compatible 
with V3 object files. They can be mixed freely in the same executable image. 

2.4.3 Image Compatibility 

The images linked with VAX FORTRAN V4.0 object modules are compatible with similar 
images using V3 modules. Images linked on VAX/VMS V4 systems are not downward 
compatible and will not run on VAX/VMS V3 systems. 


2.5 Run-Time Behavior 

The new optimizations implemented for VAX FORTRAN V4.0 introduce the small chance 
that the run-time behavior of some FORTRAN programs may change. The development 
group has devoted considerable time in designing and testing these new optimizations to 
ensure that this does not happen. During the testing, however, some subtle dependencies 
and incorrect usages of the language that caused such behavior changes were encountered. 
These are listed in Sections 2.4.1 through 2.4.4. 
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2.5.1 Flow Boolean Order 


The VAX FORTRAN language does not allow programs to depend on the order of evalua¬ 
tion of expressions. In particular, the order of evaluation of logical expressions in IF state¬ 
ments may change from release to release, so that programs with such dependencies may 
work in V3 and not in V4.0. For example, the statement 

IF (RAN(X) ♦GT♦ 0.5 .AND. CONDFLAG) GO TO 100 

will cause the V3 compiler emit code to call the RAN function first, and if the result is 
larger than 0.5, the CONDFLAG will be tested. The V4.0 compiler will emit code in the 
reverse order, to avoid the routine call overhead if the value of CONDFLAG is .FALSE. 
Thus, programs with this kind of construct will execute according to the language defini¬ 
tion, but they will generate different random numbers. If this change causes a problem, you 
can resolve it by making the test independent of the order of evaluation. For example, the 
preceding statement may be changed as follows: 

Y = RAN < X) 

IF (Y .GT. 0.5 .AND. CONDFLAG) GO TO 100 

Thus, the RAN function is always called and the program works the same in both V3 and 
V4.0 cases. 

2.5.2 Subtle Bounds Errors 

Programs that address beyond array or string bounds in an uncontrolled way (for example, 
an undetected logic error) may work differently for V3 and V4.0. These programs are 
incorrect and should be run with /CHECK=BOUNDS specified in order to find the out of 
bounds references. They may appear to work properly when compiled with FORTRAN V3 
because of the particular layout of memory generated by the V3 compiler. The V4.0 com¬ 
piler attempts to optimize memory usage by keeping variables in registers whenever possi¬ 
ble. This feature causes the order and number of variables kept in memory locations to 
change. This change in memory layout may cause such incorrect programs to fail at run 
time in several different ways. 

2.5.3 DMOD More Accurate 

The accuracy of the DMOD function was improved in the VAX/VMS V4 Run-Time Li¬ 
brary. In particular, in some cases where 0.0D0 was returned in VAX/VMS V3, a number 
very close to the first argument is now returned. 

2.5.4 Use of VAX/VMS Real-Time Features 

Some programs that use features of the VAX/VMS operating system intended for real-time 
programming, such as Asynchronous System Traps (ASTs), may work differently between 
FORTRAN V3 and V4.0. In particular, it is possible to use FORTRAN variables and arrays 
to communicate between the FORTRAN program and the relevant AST service routines. 
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This may cause these variables or arrays to change in the middle of the execution of a 
FORTRAN program unit. The V4.0 compiler assumes that no such asynchronous change is 
possible unless the variables or arrays involved have been declared VOLATILE. 

This problem will be manifested by the program using the previous value of the variable 
(perhaps because it is now being held in a register) rather than the new value assigned by 
the AST service routine. Thus, you should examine any program that uses AST service 
routines written in FORTRAN for such asynchronous updating, and you should declare any 
variables or arrays used in this way with the VOLATILE statement. 

2.6 New VAX FORTRAN HELP 

During the installation procedure, you are given the choice of selecting either an expanded 
version or a short version of VAX FORTRAN HELP. The first version refers to a new, 
expanded VAX FORTRAN HELP; the second file name refers to the previous, short VAX 
FORTRAN HELP. 

2.6.1 Long HELP 

FORHELPL.HLP, the new, expanded version of HELP, consists of approximately 510 
blocks and combines the traditional HELP file with HELP text for VAX FORTRAN 
language elements. Subtopics include built-in functions, character sets, data, error mes¬ 
sages, format specifications, intrinsic functions, parameters, qualifiers, source format, and 
statements. 

This long version of FORTRAN HELP is included as a separate kit for V4 in order to 
simplify installing maintenance updates. Refer to Chapter 1 in this installation guide for 
specific instructions. 

2.6.2 Short HELP 

FORHELPS.HLP, the short version of HELP, consists of approximately 30 blocks and 
contains information on the VAX FORTRAN command line and the command qualifiers. 
For your convenience, this traditional HELP file has been reformatted for increased reada¬ 
bility. 


2.7 Compiler Performance and Recommended Working Set 

The extensive additional optimizations performed by the FORTRAN V4 compiler, as com¬ 
pared to FORTRAN V3, have significantly changed the performance characteristics of the 
compiler itself. 

• Raw compile speeds have degraded marginally. 

• Virtual memory usage has approximately tripled. 

• The compiler has grown by about 42 percent, from 422 pages to 597 pages. 
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These changes significantly affect the page faulting behavior of the FORTRAN command 
when operating in a limited working set environment. Thus, for acceptable compile per¬ 
formance, you should familiarize yourself with the information given in the next sections 
and accordingly adjust the FORTRAN compilation working sets used by the accounts on 
your system. 

2.7.1 CPU Usage 

Raw compile speed, as measured by CPU time spent compiling a given FORTRAN pro¬ 
gram, has degraded somewhat from that of FORTRAN V3. This degradation is not uniform 
— some programs suffer more compile speed degradation than others, and some even 
compile faster. Measurements have shown a range of 10-22 percent degradation for a wide 
selection of large FORTRAN programs. The degradation is caused by the additional analy¬ 
sis needed to achieve the improved optimizations of the FORTRAN V4 compiler. 

2.7.2 Memory Usage 

The FORTRAN V4 compiler uses more memory than FORTRAN V3 in three ways. First, 
its internal data structures are about twice as large as FORTRAN V3. Second, it makes 
about twice as many passes over them. Third, the size of the compiler code has increased 
by about 42 percent. 

All of these changes are critical to the global optimization capability of the FORTRAN V4 
compiler. All will also cause the number of page faults encountered by the FORTRAN V4 
compiler to increase in comparison with FORTRAN V3. Thus, to ensure that the FOR¬ 
TRAN compiler does not place an unacceptable burden on system performance, make sure 
that an adequate working set is used when compiling FORTRAN programs. 

One important difference between the two versions is that Version 4 performs analysis on 
entire program units (routines) at once. That is, for optimization purposes, it simultane¬ 
ously represents all of the memory operations in an entire program unit. Version 3, on the 
other hand, performed optimizations only on bounded “blocks” of statements, and so had a 
fixed upper limit for the amount of memory needed for optimization purposes, regardless of 
the size of the program. 

Figures 2-1 and 2-2 graphically show how the number page faults have increased from 
FORTRAN V3 to FORTRAN V4. 

Table 2-1 gives brief descriptions of the programs analyzed in Figures 2-1 and 2-2. 
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Table 2-1: Program descriptions for Figures 2-1 and 2-2 


Program 

Description 

END 

Single END statement. 

LOGIC 

1150 lines, 2 routines, no comments, LOGICAL operations only. 2/3 
simple assignments, 1/3 expression assignments, no flow at all. 

ORBIT 

1048 lines, 14 routines, no comments, mixture of statements, calcu¬ 
lates satellite orbits. 

CHEM 

1419 lines, 9 routines, no comments, large scientific program with 
lots of computations. Chemical engineering. 

ADVENT 

ADVENTURE computer game, 3092 lines, 1856 lines of source. One 
very large main program, 2086 lines, 1284 lines of source, a few 
subroutines. 

GAME2 

Computer game, large fraction of included text. GAME2.FOR is 
5313 lines, 4222 source, GAME2.INC is 104 lines, 72 source lines, 
included 52 times. This totals 5408 lines of included text, 3744 
source lines included for a total compiled of 10721 lines, 7966 source 
lines. 

BEAM 

Particle beam simulation, lots of COMPLEX, 3164 lines, 2827 
source lines in 35 routines, good size mixture. 

MATRIX 

Package for analysis and correlation of two dimensional data arrays. 
147 routines, most small. 13,154 total lines, 7153 source lines. 


The implications of this data and recommendations for working set sizes are given in the 
following figures and text in this section. 
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Figure 2-1: Page Faults versus working set, FORTRAN V3 
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Figure 2-2: Page Faults versus working set, FORTRAN V4 
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The data in the preceding figures can be summarized as follows: 

1. With large working sets, two or more times the size of the compiler, faults are not 
excessive for either compiler. The increased data structure size and extra passes 
dominate in this regime and result in total faults of about three times greater than 
those of the FORTRAN V3 compiler, regardless of program size or organization. This 
rate, however, is modest and does not degrade system performance. 

2. With middle-size working sets, between one and two times the size of the compiler, 
the effects of the larger structures and extra passes are even stronger. In addition, the 
extra faulting of the compiler itself begins to be felt in the lower end of the range. 

In this regime, program size and organization begins to make a significant difference. 
For very small compilations, below approximately 1000 lines of actual code (exclud¬ 
ing comments and blank lines), the fault rate is still relatively low for both com¬ 
pilers, even though FORTRAN V4 is still about three times more than FORTRAN 
V3. 

The program organization also affects fault rates in this regime. Programs with many 
small routines degrade much more quickly than programs with a few large routines. 
This is partly due to the more effective optimization when compiling a large amount 
of code all at once, but for the most part it is caused by compiler page faults. 

In the case of the small routine, the compiler pages are faulted repeatedly as each 
routine gets compiled. In the large routine case, only a small part of the compiler is 
needed in memory at any one time and this allows more data structure pages to be 
resident. 

For large compilations in this regime, the FORTRAN V4 compiler faults considera¬ 
bly more than the FORTRAN V3 compiler, as much as six times as much. This 
amount of faulting can significantly degrade system performance. For this reason, 
compiling with the working set at the high end of this range is recommended, espe¬ 
cially when large compilations (several thousand code lines) of many small program 
units are used. 

3. With small working sets, less than the size of the compiler, fault rates quickly 
become excessive for both FORTRAN V3 and FORTRAN V4 compilers. Again, 
FORTRAN V4 faults two to three times as much as FORTRAN V3, but both begin 
to cause system performance degradation when compiling programs with more than 
1000 code lines, especially when many routines are being compiled. Small programs 
continue to give acceptable fault rates for both compilers in this regime, mostly 
because many of the compiler pages are never actually needed and because only 
minimal-size data structures are needed. 
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4. Items 1-3 are expressed in terms of compiler size. The size of the FORTRAN V3 
compiler code and static data is 422 pages, and FORTRAN V4 is 597 pages. This is 
about a 42 percent increase. The boundaries for the regimes described in those items 
are increased by a similar factor. 

Thus, in general, for large programs, the regimes are as follows: The low faulting 
regime is not attained until about 1000 pages working set for FORTRAN V4, versus 
about 700 pages for FORTRAN V3. The intermediate regime is between 600 and 1000 
pages working set for FORTRAN V4, versus 400 to 700 for FORTRAN V3. The high 
faulting regime is below 600 pages working set for FORTRAN V4, versus below 400 
for FORTRAN V3. 

The observations in items 1-4 lead to the following specific recommendations for use of the 
VAX FORTRAN V4 compiler: 

1. Follow the directions for optionally installing the compiler as a known image with 

the /OPEN, /SHARED, and /HEADER_RESIDENT options. This will keep the 

compiler startup overhead low and will alleviate system performance degradation 
when several compilations are in progress simultaneously. 

2. If large programs (more than 1000 non-comment lines) are being compiled, ensure 
that working set sizes are not in the high faulting regime to avoid system perform¬ 
ance degradation. Specifically, compiling large programs consisting of many small 
routines in working set sizes below 600 is to be avoided. Remember that many 
modest sized INCLUDE files often cause compilation size to be much larger than 
source file size. 

3. In systems where large programs are being developed and where memory is very 
scarce, performance can be improved by encouraging users to break up large pro¬ 
grams into small routines in separate source files. In this way, the size of each 
compilation can be kept small and system performance will not suffer, even in small 
working sets. Used in conjunction with object library manipulation capabilities of 
the linker and librarian, this can be an effective way to improve system performance 
and individual productivity. 

2.8 Output File Specifications on Command Lines 

The compiler’s behavior in determining the directory used for the output object and listing 
files has been changed to agree with the documentation and other DCL commands. Both 
the old and new behavior are described below as well as the recommended changes to 
command files that depend on the old, incorrect, behavior. 

In the examples below, assume that the default device and directory is set to: 

MYDEO:CMYDIR3 
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2.8.1 Behavior of VAX FORTRAN V3 

In VAX FORTRAN V3, and all prior versions, the command: 

$ FORTRAN [XYZ3MYFILE/OBJECT 

produced an object file in directory [MYDIR], the default, rather than in directory [XYZ], 
which contained the input file. This was contrary to the documentation for the specifica¬ 
tion of output files in the VAX/VMS Command Language User’s Guide, and inconsistent 
with other system language processors, such as the MACRO assembler and the LINK 
command. The same was true of the /LIST qualifier. 

Note that this applies only to the use of the /LIST and /OBJECT qualifiers used following 
an input file specification. When these qualifiers are used following the FORTRAN com¬ 
mand, the use of the default directory for the output file is correct and has not changed. 

In addition, when a file specification is given explicitly with the qualifier, the normal 
defaulting rules apply, including use of the default device and directory, even if they are 
different from the device and directory of the input file. For example, if the command: 

$ FORTRAN [XYZ3MYFILE/0BJECT=[3 

were given, the object file is placed in the default directory as given in the object file 
specification. This behavior is also correct and has not changed. 

2.8.2 Behavior of VAX FORTRAN V4 

In FORTRAN V4, the command: 

$ FORTRAN [XYZ3MYFILE/OBJECT 

produces an object file in directory [XYZ], the same as the input file specification instead of 
the default directory. This behavior corresponds with the documentation for the behavior 
of the qualifiers and with the behavior of other system language processors. The behavior 
when the /LIST and /OBJECT qualifiers are used after the FORTRAN command, and 
when an explicit file specification is given with the qualifier are correct and have not 
changed. 

2.8.3 How to Change Command Files 

If you have command files which use the form of the FORTRAN command described 
above, you will need to modify them accommodate this change. The modification needed is 
to supply the default filespec explicitly with the output qualifier. Thus, to modify the 
command: 

$ FORTRAN [MYDIR*FORTRAN * SOURCE]PROG 1 * FOR/OBJECT/LI ST 

so that the output files are placed in the default directory [MYDIR], you need to add 
explicit default file specifications to the qualifiers. For example: 

$ FORTRAN [MYDIR.FORTRAN♦SOURCE]PR0G1♦FOR/OBJECT=[3/LIST=C3 

will work as the previous command with both VAX FORTRAN V3 and V4. 
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2.8.4 Unformatted Writes of lnteger*2 Parameter Constants 

The following error in the behavior of unformatted WRITE statements has been corrected. 
If an INTEGER*2 PARAMETER constant was used in an unformatted WRITE statement, 
in a routine compiled with the /I4 qualifier, FORTRAN V3 incorrectly wrote a longword 
(4 bytes). The FORTRAN V4 behavior was changed to correctly write a word (2 bytes). For 
example, when the following routine was compiled with the /I4 qualifier: 

INTEGER*2 INTWRITE t INTREAD t INTERR 
PARAMETER (INTWRITE = 12) 

□ PEN(UN IT = > FORM = 'UNFORMATTED' t STATUS= 7 NEW 7 ) 

WRITE(3) INTWRITE »INTWRITE 
CLOSE(3) 

OPEN(UN IT = 3 » FORM= 7 UNFORMATTED 7 »STATUS= 7 OLD 7 ,DISPOSE= 7 DELETE 7 ) 

READ(3) INTREADt INTERR 
PRINT *t INTREAD t INTERR 
END 

FORTRAN V3 generated the incorrect results: 

12 0 

Under FORTRAN V4, the results are: 

12 12 


2.8.5 Possible Failure of the DICTIONARY Statement 

Should the compilation of a routine containing a DICTIONARY statement fail with multi- 
pie errors of the form: 

7,LIB-E-ACTIMAGE» error activating imatfe sys$library:CDDSHR*EXE55 
-SYSTEM-F-PROTINSTALL t protected images must be installed 

and the routine prematurely terminates with an access violation, the problem may be due 
to an unsuccessful installation of the VAX Common Data Dictionary. 

To allow the image to be properly activated, make sure the VAX Common Data Dictionary 
is properly installed on your system. It may be necessary to rerun the product installation 
procedure for the VAX Common Data Dictionary. You must also make sure the 
CDDSHR.EXE shareable image is made a known image by means of the VMS INSTALL 
utility. Make CDDSHR.EXE a known image with the following INSTALL command: 

INSTALL> SYS$SHARE:CDDSHR/□PEN/HEAD/SHARE/PROT 
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Appendix A 

Software Performance Reports 


Occasionally, you may encounter problems or errors when using the VAX FORTRAN 
software and documentation. These problems should be communicated to Digital Equip¬ 
ment Corporation by means of a Software Performance Report (SPR) form, such as the one 
shown in Figure A-l. These forms may be obtained from the nearest SPR center. 

You can submit Software Performance Reports to the nearest SPR center for handling. 
SPRs are forwarded to the appropriate group within the Software Engineering Department 
for analysis and response. 

In preparing a Software Performance Report, you should adhere to the following guidelines: 

1. Give as complete a description as possible of the problem encountered. Often a detail 
that may seem irrelevant will give a clue to solving the problem. 

2. If possible, isolate the problem to a small example. Large, unfamiliar programs are 
difficult to work with and may result in a misunderstanding of what the problem is 
or an inability to duplicate the problem. 

3. If the error example is longer than one page of source code, try to send all informa¬ 
tion in a machine-readable form. Problems in this form are much easier to diagnose. 
All media are returned. 

4. Send console samples, command files, listings, link maps, include files, data files, 
and so on with the SPR. Annotations showing where the error occurred are extremely 
helpful. 

5. If a program reads input data, include sample input listings, and, if possible, sample 
output. 

6. If an error example cannot be isolated to a single program unit, include listings and 
other relevant material on all program units involved. 

Experience shows that many SPRs do not contain sufficient information to duplicate or 
identify the problem. Complete and concise information will help DIGITAL give accurate 
and timely service to software problems. 
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SOFTWARE 

PERFORMANCE 

REPORT 


FIELD NO.: 


CORPORATE SPR NO.: 


279086 


^ TO SET UP FOR PROPER ALIGNMENT. START AT MARK BELOW. 


OPERATING SYSTEM VERSION 

[ 

SYSTEM PROGRAM OR DOCUMENT TITLE V ERSION OR DOCU M ENT PA RT NO. DATE 

NAME: 

FIRM: 

ADDRESS: 

CUST. NO.: 

DEC OFFICE DO YOU HAVE SOURCES? 

YES | | No| 

] 

REPORT TYPE/PRIORITY 

1 . 

PROBLEM/ERROR 2. 

SUGGESTED ENHANCEMENT 3 . 

OTHER 4. 

5. 


HEAVY SYSTEM IMPACT 

MODERATE SYSTEM IMPACT 

MINOR SYSTEM IMPACT 

NO SIGNIFICANT IMPACT 

DOCUMENT AT ION/SUGGESTION 

SUBMITTED BY: PHONE: 

CAN THE PROBLEM BE REPRODUCED AT WILL? YEsj | Noj 


ATTACHMENTS 

MAG TAPE | | FLOPPY DISKS | | LISTINg| 

OTHER: 

dectape] 

COULD THIS SPR HAVE BEEN PREVENTED BY |-1 |-1 

BETTER OR MORE DOCUMENTATION? YES|_ | NOj_ 

PLEASE EXPLAIN IN PROVIDED SPACE BELOW. 


CPU TYPE SERIAL NO. MEMORY SIZE DISTRIBUTION MEDIUM SYSTEM DEVICE 

DO NOT PUBLISH 



ALL SUBMISSIONS BECOME THE PROPERTY OF DIGITAL EQUIPMENT CORPORATION 


SHORT NAME 

M NT. CAT. 

M NT. GRP. 

XFER GRP 

PL 

PR B. TYPE 

DATE RECEIVED (MAIL) 

DATE TO MAINTAINER 

X FER DATE 

LOGGED ON 

DATE RECEIVED (ASG) 

DATE RECEIVED FROM MAINTAINER 

DATE ANSWERED 

LOGGED OFF 


EN 1 044H-07-R479 (35C) 


ADMINISTRATIVE SERVICES GROUP, SWS 


Figure A-l: Software Performance Report (SPR) Form 
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READER’S COMMENTS 


VAX FORTRAN Installation Guide 
and Release Notes 
AA-H953D-TE 


NOTE: This form is for document comments only. DIGITAL will use comments submitted on this form at the 
company’s discretion. If you require a written reply and are eligible to receive one under Software 
Performance Report (SPR) service, submit your comments on an SPR form. 


Did you find this manual understandable, usable, and well organized? Please make suggestions for improvement. 


Did you find errors in this manual? If so, specify the error and the page number. 


Please indicate the type of user/reader that you most nearly represent. 

□ Assembly language programmer 

□ Higher-level language programmer 

□ Occasional programmer (experienced) 

□ User with little programming experience 

□ Student programmer 

□ Other (please specify) _ 
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Street _ 

City_ State_Zip Code _ 

or Country 
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